home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Solar Eclipse.gt5 < prev    next >
Encoding:
Text File  |  2003-08-15  |  1.8 KB  |  83 lines
  1. OpenWorkspace "Sun_ecl1.ws5"
  2. set pl =PlayerWindow
  3. 'pl.top=500
  4. 'pl.left=0
  5. pl.top=Screen.height-150
  6. pl.left=Screen.width-200
  7. Set wnd1 = getWindow(1)
  8. Set Camera1 = wnd1.camera
  9. Set theTime1 = camera1.time
  10. Set Direction1 = camera1.Direction
  11. Set Location1 = camera1.Location
  12. Set wnd2 = getWindow(2)
  13. Set Camera2 = wnd2.camera
  14. Set theTime2 = camera2.time
  15. Set Direction2 = camera2.Direction
  16. Set Location2 = camera2.Location
  17. '---- end standard prologue'
  18.  
  19. set txt1 = CreateTextWindow
  20. txt1.Loadfile "Sun_ecl_w1.html"
  21. txt1.SetCaption " "
  22. txt1.Locate Screen.width/2-220,0,450,100
  23. set Mw =MainWindow
  24. Mw.State = SW_MAXIMIZE
  25. Tilewindows 1
  26.  
  27. settimemark
  28.  theTime1.mode = 1
  29.  theTime1.JDstr = "2451401.83333"
  30.  theTime1.Units = 3
  31.  theTime2.mode = 1
  32.  theTime2.JDstr = "2451401.83333"
  33.  theTime2.Units = 3
  34.  theTime1.step = 5.00000000000000E+000
  35.  theTime2.step = 5.00000000000000E+000
  36.  
  37.  txt1.Show
  38.  
  39. waitfortime 11000
  40.  txt1.Close
  41.  
  42. set txt2 = CreateTextWindow
  43.  
  44. txt2.Loadfile "Sun_ecl_w2.html"
  45. txt2.SetCaption " "
  46. txt2.Locate Screen.width/2,0,400,100
  47.  txt2.Show
  48.  theTime1.Forward
  49.  theTime2.Forward
  50.  WaitFrames 55
  51. waitfortime 9000
  52.  txt2.Close
  53. set txt1 = CreateTextWindow
  54. txt1.Locate 0,0,400,120
  55.  txt1.Loadfile "Sun_ecl_w3.html"
  56.  txt1.Show
  57.  theTime1.Stop
  58.  theTime2.Stop
  59.  theTime1.step = 0.50000000000000E+000
  60.  theTime2.step = 0.50000000000000E+000
  61.  theTime1.Forward
  62.  theTime2.Forward
  63.  WaitFrames 120
  64.  set txt3 = CreateTextWindow
  65.  txt3.Locate 0,Screen.height-260,280,250
  66.  txt3.LoadFile "Sun_ecl_w4.html"
  67.  txt3.Show
  68. pause 7000
  69.  txt3.Close
  70. waitfortime 12000
  71.  txt1.Close
  72.  theTime1.Stop
  73.  theTime2.Stop
  74.  theTime1.step = 5.00000000000000E+000
  75.  theTime2.step = 5.00000000000000E+000
  76.  theTime1.Forward
  77.  theTime2.Forward
  78.  WaitFrames 70
  79.  theTime2.Stop
  80.  theTime1.Stop
  81. ' end recording
  82.  
  83.